﻿Public Class F19_Chuyen_Tien

    Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthoat.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim c As ChuyenKhoan
            c.NguoiDung = Me.Tag
            c.Ngay = dtpngay.Value.Date
            c.TKChuyen = cbxtkchuyen.SelectedValue
            c.TKNhan = cbxtaikhoannhan.SelectedValue
            c.SoTien = Integer.Parse(txtsotienpt.Text)
            c.LyDo = txt_lydo.Text
            XL_ChuyenKhoan.Them(c)
        Catch ex As Exception
            MessageBox.Show("Kiểm tra thông tin!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End Try
    End Sub

    Private Sub btntt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntt.Click

    End Sub
End Class